10 REM ******************
20 REM * DEMOPROGRAMM 2 *
30 REM ******************
40 :
50 :
60 IF A=0 THEN A=1:LOAD"PULL-DOWN-OBJECT",8,1:REM ROUTINEN NACHLADEN
70 :
71 DIM A$(20),B$(20)
72 FOR I=1 TO 20
73 : A$(I)="DIES IST EIN TEST"
74 : B$(I)="EIN WEITERER TEST"
75 NEXT
76 :
100 PRINTCHR$(147)
110 PRINT"'SPACE' SCHLIESST DAS JEWEILS OBERSTE WINDOW":PRINT
120 FOR I=1 TO 20
130 : PRINT"  UEBERLAGERUNG MEHRERER WINDOWS"
140 NEXT
150 SYS50688+3,5,5,15,10,0,0
160 SYS50688,5,5,15,10,A$(1)
170 SYS50688+3,15,8,8,13,0,1
180 SYS50688,15,8,8,13,B$(1)
200 GETA$:IFA$<>" " THEN 200
210 SYS50688+3,15,8,8,13,1,1
220 GETA$:IFA$<>" " THEN 220
230 SYS50688+3,5,5,15,10,1,0